' ***^^^***|||***^^^***
' 
'  This file is regenerated until it's edited. Delete the file to force regeneration.

'  NOTE: This denotes the way the file was created and it's possible the 
'        generation type has since changed.
'        Check the generation script for the curent state of the file.

' %%%###%%%57333af25b2094fe9746e27e121eaf69%%%###%%%
' %%%##NoWS##%%%8f951c83c5ba91b413279b2c8cae61bb%%%##NoWS##%%%
' ***^^^***|||***^^^***

  
'************************************************************************************
' Copyright © 2003-2006 Kathleen Dollard
'
' This software is provided 'as-is', without any express or implied warranty. In no 
' event will the author be held liable for any damages arising from the use of this
' software.
' 
' You may use this software for any purpose, including commercial applications, 
' and you may redistribute this software as part of application delivery: however, 
' this copyright notice may not be removed and you may not otherwise redistribute 
' this software directly other than providing a link to wwww.gendotnet.com. 
'
' You may alter this software to better server your needs (I'd like to hear about your 
' changes in order to make the software better). If you alter the softwre, you must  
' clearly mark it as altered and must not be misrepresented as the original software.
' nor wholly your original work.
'*************************************************************************************

Option Explicit On
Option Strict On

Imports System
Imports System.Collections.Generic

Imports KadGen.MorphMetadata

Public Class Dbs
   'Public Shared Function GetWrapper(ByVal xmlFileName As String) As DbsDataStructureCollection
   '   Return GetWrapper(xmlFileName, Nothing)
   'End Function

   'Public Shared Function GetWrapper(ByVal xmlStream As IO.Stream) As DbsDataStructureCollection
   '   Return GetWrapper(xmlStream, Nothing)
   'End Function

   'Public Shared Function GetWrapper(ByVal xmlFileName As String, ByVal xPath As String) As DbsDataStructureCollection
   '   Dim stream As New IO.FileStream(xmlFileName, IO.FileMode.Open)
   '   Return GetWrapper(stream, xPath)
   '   stream.Close()
   'End Function

   'Public Shared Function GetWrapper(ByVal xmlStream As IO.Stream, ByVal objectXPathPredicate As String) As DbsDataStructureCollection
   '   Dim doc As New Xml.XmlDocument
   '   doc.Load(xmlStream)

   '   Dim ns As String = "http://www.kadgen/Structure"
   '   Dim prefix As String = "def"
   '   Dim nsMgr As New Xml.XmlNamespaceManager(doc.NameTable)
   '   nsMgr.AddNamespace(prefix, ns)

   '   ' Should be on the first element
   '   Dim dataStructures As DbsDataStructureCollection = New DbsDataStructureCollection

   '   Dim dataStructureNodes As Xml.XmlNodeList = doc.SelectNodes("//def:DataStructure", nsMgr)

   '   For Each dataStructureNode As Xml.XmlNode In dataStructureNodes
   '      LoadDataStructure(dataStructures, dataStructureNode, objectXPathPredicate, nsMgr)
   '   Next

   '   Return dataStructures
   'End Function

   'Private Shared Sub LoadDataStructure( _
   '            ByVal dataStructures As DbsDataStructureCollection, _
   '            ByVal dataStructureNode As Xml.XmlNode, _
   '            ByVal tableXPathPredicate As String, _
   '            ByVal nsmgr As Xml.XmlNamespaceManager)
   '   Dim dataStructure As DbsDataStructure = GetDataStructure(dataStructureNode)
   '   dataStructures.Add(dataStructure)
   '   Dim selectXPath As String = ".//def:Table"
   '   If Not String.IsNullOrEmpty(tableXPathPredicate) Then
   '      selectXPath &= "[" & tableXPathPredicate & "]"
   '   End If
   '   Dim tableNodes As Xml.XmlNodeList = dataStructureNode.SelectNodes(selectXPath, nsmgr)
   '   For Each tableNode As Xml.XmlNode In tableNodes
   '      LoadTable(dataStructure, tableNode, nsmgr)
   '   Next
   'End Sub

   'Private Shared Sub LoadTable( _
   '            ByVal dataStructure As DbsDataStructure, _
   '            ByVal tableNode As Xml.XmlNode, _
   '            ByVal nsmgr As Xml.XmlNamespaceManager)
   '   Dim table As DbsTable = GetTable(tableNode)
   '   dataStructure.DbsTables.Add(table)
   '   Dim columnNodes As Xml.XmlNodeList = tableNode.SelectNodes(".//def:TableColumn", nsmgr)
   '   Dim constraintNodes As Xml.XmlNodeList = tableNode.SelectNodes(".//def:TableConstraints", nsmgr)
   '   Dim privelegeNodes As Xml.XmlNodeList = tableNode.SelectNodes(".//def:TablePrivileges", nsmgr)

   '   For Each columnNode As Xml.XmlNode In columnNodes
   '      LoadConstraint(table, columnNode, nsmgr)
   '   Next

   '   For Each constraintNode As Xml.XmlNode In constraintNodes
   '      LoadProperty(table, constraintNode, nsmgr)
   '   Next

   '   For Each privelegeNode As Xml.XmlNode In privelegeNodes
   '      LoadProperty(table, privelegeNode, nsmgr)
   '   Next
   'End Sub

   'Private Shared Sub LoadProperty( _
   '            ByVal objectDef As ObjectDef, _
   '            ByVal propertyNode As Xml.XmlNode, _
   '            ByVal nsmgr As Xml.XmlNamespaceManager)
   '   Dim propertyDef As PropertyDef = GetPropertyDef(propertyNode)
   '   objectDef.Properties.Add(propertyDef)
   'End Sub

   'Private Shared Sub LoadConstraint( _
   '            ByVal objectDef As ObjectDef, _
   '            ByVal constraintNode As Xml.XmlNode, _
   '            ByVal nsmgr As Xml.XmlNamespaceManager)
   '   Dim constraint As Constraint = GetConstraint(constraintNode)
   '   objectDef.Constraints.Add(constraint)
   'End Sub
End Class

Public Class DbsCollection

End Class 

	